﻿Imports System.Data.SqlClient

Public Class frmPedidos

    Dim variableconex As New SqlConnection(My.Settings.CITRA_ERPConnectionString)

    Private Sub frmPedidos_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CargarDatos()
    End Sub


    Public Sub CargarDatos()

        Dim DS As New DataSet
        Dim DA As New SqlDataAdapter("select Orden_Compra.IDCOMPRA AS [FOLIO DE COMPRA], Orden_Compra.IDUSUARIO AS USUARIO,Orden_Compra.FECHA,Cotizaciones.IDPEDIDO AS [FOLIO DE PEDIDO]," &
        "Cotizaciones.UNIDADES_PENDIENTES AS [UNIDADES PENDIENTES],Almacenes.NOMBRE AS [ALMACEN]" &
        "FROM Orden_Compra, Cotizaciones, pedidos, Almacenes WHERE Orden_Compra.IDCOTIZACION=Cotizaciones.IDCOTIZACION " &
        "AND Cotizaciones.IDPEDIDO=PEDIDOS.IDPEDIDO AND Pedidos.IDALMACEN=Almacenes.IDALMACEN;", variableconex)

        DA.Fill(DS)

        dgvMovimientosPedidos.DataSource = DS.Tables(0)

        dgvMovimientosPedidos.Columns(0).Width = 200
        dgvMovimientosPedidos.Columns(1).Width = 200
        dgvMovimientosPedidos.Columns(2).Width = 300
        dgvMovimientosPedidos.Columns(3).Width = 200
        dgvMovimientosPedidos.Columns(4).Width = 200
        dgvMovimientosPedidos.Columns(5).Width = 400


    End Sub


    Private Sub ButtonX1_Click(sender As Object, e As EventArgs) Handles ButtonX1.Click
        Close()
    End Sub

    Private Sub ButtonItem1_Click(sender As Object, e As EventArgs) Handles ButtonItem1.Click
        frmNuevoPedido.ShowDialog()
    End Sub

End Class